home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / gfx / fract / fu1_61.lha / Formulas / Cubic.Form < prev    next >
Text File  |  1994-07-11  |  391b  |  44 lines
  1. Cubic
  2. {
  3.     {
  4.         mirrorxy
  5.         x1=-2.0
  6.         x2= 2.0
  7.         y1=-1.75
  8.         y2= 1.75
  9.         par1.r=0.3
  10.         par1.i=0.0
  11.         bailout=4.0
  12.     }
  13.     {
  14.         p=pixel
  15.         t=par1
  16.         t3=[3.0,0.0]*p
  17.         t2=p*p
  18.         a=t2-[1.0,0.0]
  19.         a=a/t3
  20.         b1=[2.0,0.0]*a
  21.         b1=b1*a
  22.         b1=b1*a
  23.         b2=t2-[2.0,0.0]
  24.         b2=b2/t3
  25.         b=b1+b2
  26.         aa3=a*a
  27.         aa3=aa3*[3.0,0.0]
  28.         z=[0.0,0.0]-a
  29.     }
  30.     {
  31.         z1=z*z
  32.         z1=z1*z
  33.         z2=aa3*z
  34.         z=z1-z2
  35.         z=z+b
  36.         w=abs(z)
  37.     }
  38.     {
  39.         w<t
  40.     }
  41.     {
  42.     }
  43. }
  44.